use English '-no_match_vars';	# match vars slow regexes
my @o = split( '\n', `df -BGB /cygdrive/e/jasoncatena-acmesac/test` );
my @o1 = split( ' ', @o[1] );
my $totalDisk = @o1[1];
$totalDisk =~ s/GB//;
my $freeSpace = @o1[2];
$freeSpace =~ s/GB//;
my $percentFree = @o1[4];
$percentFree =~ s/%//;
print $percentFree . '	' . $freeSpace. '	' . $totalDisk . "\n";
